home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / e / makeefile.lha / MakeEFile_and_src / Examples / AStartup / AStartup_EPP.e next >
Encoding:
Text File  |  1994-04-19  |  866 b   |  32 lines
  1. /*
  2.  * Astartup
  3.  *
  4.  * Test pour astartup.e
  5.  *
  6.  */
  7. PMODULE 'PMODULES:User/astartup'
  8. MODULE    'workbench/startup','exec/ports'
  9.  
  10. PROC main() HANDLE
  11.   DEF wbargs:PTR TO wbarg, nbargs, args:PTR TO wbstartup
  12.   DEF i, str:PTR TO CHAR
  13.   IF _astartup()<>NIL THEN Raise("STRT")    /* erreur -> _exit(20) */
  14.   WriteF('argc=\d\nargv=\h\n',_argc,_argv)
  15.   IF _argc>0 /* we are run from the CLI */
  16.     FOR i:=0 TO _argc-1 DO WriteF('argv[\d]=\s\n',i,_argv[i])
  17.   ELSE /* wa are run from the Workbench */
  18.     args:=_argv
  19.     wbargs:=args.arglist
  20.     nbargs:=args.numargs
  21.     WriteF('\d argument(s) en \h\n',nbargs,wbargs)
  22.     FOR i:=0 TO nbargs-1
  23.       str:=wbargs[i].name
  24.       IF Or(str[0]=0,str=NIL) THEN str:='(dir)'
  25.       WriteF('arg[\d]=\s\n',i,str)
  26.     ENDFOR
  27.   ENDIF
  28.   Raise(NIL)
  29.   EXCEPT
  30.   IF exception=NIL THEN _exit(0) ELSE _exit(20)
  31. ENDPROC /* CleanUp() inclus dans _exit() */
  32.